object DMRedakcjaMetryk: TDMRedakcjaMetryk
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 331
  Width = 460
  object ADQMetryki: TADQuery
    Left = 56
    Top = 16
  end
  object ADQSady: TADQuery
    SQL.Strings = (
      'select idSaduOgloszenia, chSadOgloszenia'
      'from SadyOgloszenia')
    Left = 200
    Top = 16
  end
  object ADQWojewodztwa: TADQuery
    SQL.Strings = (
      'select idWojewodztwa, chWojewodztwo '
      'from Wojewodztwa')
    Left = 384
    Top = 16
  end
  object ADQUsun: TADQuery
    SQL.Strings = (
      'begin'
      'delete relacjapdf where idmetryki = :id'
      'delete metryki where idmetryki = :id'
      'end;')
    Left = 56
    Top = 80
    ParamData = <
      item
        Name = 'ID'
        ParamType = ptInput
      end
      item
        Name = 'ID'
        ParamType = ptInput
      end>
  end
  object ADQPodmioty: TADQuery
    SQL.Strings = (
      'select idPodmiotu, chNazwa '
      'from Podmioty'
      'where chNazwa like :nazwa')
    Left = 128
    Top = 16
    ParamData = <
      item
        Name = 'NAZWA'
        ParamType = ptInput
      end>
  end
  object ADQCzyPodwiazany: TADQuery
    SQL.Strings = (
      'select * '
      'from Metryki'
      'where idPodmiotu = :id')
    Left = 56
    Top = 144
    ParamData = <
      item
        Name = 'ID'
        ParamType = ptInput
      end>
  end
  object ADKasujPodmiot: TADQuery
    SQL.Strings = (
      'delete RelacjaPDF'
      'where idMetryki = :id1'
      'and idPDF = :id2')
    Left = 56
    Top = 200
    ParamData = <
      item
        Name = 'ID1'
        ParamType = ptInput
      end
      item
        Name = 'ID2'
        ParamType = ptInput
      end>
  end
  object ADQDane: TADQuery
    SQL.Strings = (
      'select M.idMetryki, M.chPublikator, M.dtOgloszenie'
      '     , M.idPodmiotu, M.inDotRoku'
      '     , M.dtDataPocz, M.dtDataKon, M.inKRS'#9
      '     , M.chPKD, M.boZakresDat, M.boGotowe'
      '     , M.idMiejscowosciWgminach, M.dtDataWpisu'
      '     , R.chRodzaj, PR.chPodRodzaj, P.chNazwa'
      '     , S.chSadOgloszenia'
      'from Metryki M '
      'left outer join Podmioty P on M.idPodmiotu = p.idPodmiotu'
      'left outer join Rodzaje R on M.idRodzaju = R.idRodzaju'
      
        'left outer join PodRodzaje PR on M.idpodRodzaju = PR.idpodRodzaj' +
        'u'
      
        'left outer join SadyOgloszenia S on M.idSaduOgloszenia = S.idSad' +
        'uOgloszenia'
      'where M.idMetryki = :id')
    Left = 272
    Top = 16
    ParamData = <
      item
        Name = 'ID'
        ParamType = ptInput
      end>
  end
end
